home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #3 / Amiga Plus CD - 1996 - No. 3.iso / demo-versionen / databaseprofessional_v3.0 / filofaxdemo / close.rexx next >
OS/2 REXX Batch file  |  1995-09-17  |  453b  |  32 lines
  1. /* Schließt alle FiloFax Dateien */
  2.  
  3. ADDRESS DataBase
  4. Request "_Schließen|_Abbruch" "Soll das FiloFax geschlossen werden ?"
  5. IF RC = 0 THEN EXIT
  6.  
  7. CurrentBase
  8. home = RC
  9.  
  10. Display Off
  11.  
  12. CALL CloseFiloFax "Adressen.db"
  13. CALL CloseFiloFax "Termine.db"
  14. CALL CloseFiloFax "Kalender.db"
  15. CALL CloseFiloFax "Notizen.db"
  16.  
  17. Base home
  18. Display On
  19. Show New
  20. EXIT
  21.  
  22. CloseFiloFax:
  23.   ARG name
  24.   FindBase name
  25.   nr = RC
  26.   IF nr > 0 THEN DO
  27.     Base nr
  28.     Close
  29.   END
  30.   RETURN
  31.  
  32.